extern int cscal_(integer *n, complex *ca, complex *cx, integer *incx);
